home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / internet / others / removenewsgrp.lha / RemoveNewsGroup / AddNewsGroup next >
AmigaDOS Script File  |  1995-09-01  |  1KB  |  52 lines
  1. .key Group/A,DaysToKeep
  2. .bra [
  3. .ket ]
  4. .def DaysToKeep 1
  5.  
  6. if val [DaysToKeep] NOT GE 0
  7.   echo "DaysToKeep must be greater than or equal to zero"
  8.   quit
  9. endif
  10.  
  11. ;; Written by James Burton (burton@cs.latrobe.edu.au)
  12. ;; for PostNewsSpool.lha
  13. ;; 08-Jan-95
  14.  
  15. ;; Fixed up a *whole bunch* by Jim McKinney - 27-Aug-95
  16.  
  17. set ActiveFile UULIB:News/Active
  18. set PurgeFile  UULIB:News/PurgeFile
  19. set TempFile   T:Temp.$$
  20.  
  21. cd UULIB:News
  22. amitcp:bin/newgroup $ActiveFile [Group]
  23. echo >>$PurgeFile "[Group] [DaysToKeep]"
  24. echo "Added [Group] to $PurgeFile."
  25. echo "Keeping posts for [DaysToKeep] day" NOLINE
  26. if val [DaysToKeep] GT 1
  27.   echo "s."
  28. else
  29.   echo "."
  30. endif
  31.  
  32. sort $ActiveFile $TempFile
  33. delete >nil: $ActiveFile
  34. copy $TempFile $ActiveFile
  35. delete >nil: $TempFile
  36.  
  37. sort $PurgeFile $TempFile
  38. delete >nil: $PurgeFile
  39. copy $TempFile $PurgeFile
  40. delete >nil: $TempFile
  41.  
  42. ;This section is for tin and the .newsrc file.  Take it out if you're not using it.
  43. set NewsRC UULIB:.newsrc
  44. echo >>$NewsRC "[Group]: "
  45. echo "Added [Group] to $NewsRC"
  46. sort $NewsRC $TempFile
  47. delete >nil: $NewsRC
  48. copy $TempFile $NewsRC
  49. delete >nil: $TempFile
  50.  
  51. ;; End of File
  52.